home *** CD-ROM | disk | FTP | other *** search
/ Clinical Endocrinology / Clinical Endocrinology.iso / mac / 00000000 / 06000000 / 06040000 / Shared.dir / 00966_Script_More Menu Scripts < prev    next >
Text File  |  1995-11-17  |  2KB  |  78 lines
  1. on menuRollOver
  2.   global jumpFrame
  3.   
  4.   if rollOver(12) = true then
  5.     
  6.     put the frame into jumpFrame
  7.     sound playFile 1, "Wizz.aif"
  8.     puppetsOn
  9.     go frame "menu"
  10.     
  11.   end if
  12.   
  13. end menuRollOver
  14. ----------------------------------------
  15. on scaleMenuBox
  16.   
  17.   global menuSwitch
  18.   
  19.   puppetSprite 15, true
  20.   put the left of sprite 15 into theLeft
  21.   put the top of sprite 15 into theTop
  22.   put the right of sprite 15 into theRight
  23.   put the bottom of sprite 17 into theBottom
  24.   
  25.   spriteBox 15, theLeft, theTop, theRight, theBottom + 8
  26.   updateStage
  27.   
  28.   repeat with i = 15 to 17
  29.     set the visibility of sprite i to true
  30.   end repeat
  31.   
  32.   set menuSwitch = "on"
  33.   
  34. end scaleMenuBox
  35. -------------------------------------------------------------------
  36. on goHyperLink  HyperLinkList
  37.   global hardDisk, pathToMovie
  38.   
  39.   put the mouseV into clickLoc
  40.   put the clickOn into whichSprite
  41.   put the number of lines in field HyperLinkList into theLines
  42.   put the top of sprite whichSprite into theTop
  43.   put the bottom of sprite whichSprite - theTop into theDepth
  44.   put theDepth / theLines into theIncrement
  45.   
  46.   put clickLoc - theTop into UserLineLoc
  47.   put ( UserLineLoc / theIncrement ) + 1 into lineChoice
  48.   if lineChoice > theLines then set lineChoice = theLines
  49.   
  50.   put line lineChoice of field HyperLinkList into theLineText
  51.   put the number of words in theLineText into lastWord
  52.   
  53.   if word 1 of theLineText = "frame" then
  54.     put word 2 of theLineText into theFrame
  55.     put "go frame " & theFrame into theScript
  56.     do theScript -- handler to move the slider to the correct location
  57.     calcSlider
  58.   else
  59.     -- script for a movie link
  60.     put word 2 of theLineText into theFrame
  61.     put word 3 to lastWord of theLineText into textToStrip
  62.     stripMoviePath textToStrip
  63.     put "go frame " & theFrame && "of movie " & QUOTE & hardDisk ┬
  64.  & pathToMovie & QUOTE into theScript
  65.     keepHistory
  66.     do theScript
  67.     init
  68.     put value(theFrame) into theFrameNumber
  69.     if theFrameNumber > 1 then
  70.       calcSlider
  71.     end if
  72.     
  73.   end if
  74.   
  75. end goHyperLink
  76. -------------------------------------------------------------------
  77.  
  78.